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About This Manual 


This manual is written primarily for system administrators, programmers, 
and systems analysts who are familiar with GCOS 6 MOD 400 use and 
terminology. TOOLKIT provides utilities, active functions, and COBOL 
subroutines to help increase system effectiveness and COBOL program 
efficiency. : 


This manual is divided into five sections and one appendix. 


Section 1 gives an introduction to TOOLKIT, a description of its components, 
and an overview of the manual’s organization. The section closes with a table 
identifying and briefly describing each TOOLKIT tool, with a reference to the 
section that contains the complete tool description. 


Section 2 describes how to use TOOLKIT. New users of TOOLKIT are shown 
how to use the menus and help files to become familiar with the tools. More 
experienced TOOLKIT users are given a brief description of using TOOLKIT 
tools at the system level. 


‘Section 3 contains alphabetically-organized descriptions of each TOOLKIT 
utility tool. 

Section 4 describes each of the TOOLKIT active function tools, organized 
alphabetically. 


Section 5 includes descriptions of all TOOLKIT COBOL subroutine tools. 


Appendix A contains all COBOL copy files used by TOOLKIT’s COBOL 
subroutines. 


A Technical Publictions Remarks Form, included at the back of this manual, 
can be used to note any corrections, changes, or additions that you think would 
make the manual more useful. 


Honeywell disclaims the implied warranties of merchantability and fitness for a particular 
purpose and makes no express warranties except as may be stated in its written agreement 
with and for its customer. In no event is Honeywell liable to anyone for any indirect, special 
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Section 1 
Introduction to TOOLKIT Series-I 


TOOLKIT Series-I is a software package designed to help you get the most of 
GCOS 6 MOD 400 resources. TOOLKIT provides: 


e Group, system, record lock, buffer and I/O pool, and memory usage informa- 
tion, for tailoring the design of the operating system 


e File, bound unit, and disk utilization information, for streamlining COBOL 
program design 


e Filename and character string locating tools, for maintaining programs and 
searching for data 


e Forms viewing, testing, and attributes listing tools, for working with single or 
multiple forms 


e Namelist and buffer description creation tools, for simplifying the writing of 
programs that use VDAM 


e Argument-passing subroutines, for including in COBOL programs so they can 
function as commands 


e GCOS 6 MOD 400 System Services interface subroutines, for extending the 
power of COBOL programs 


e Other handy tools for general use 


TOOLKIT?’s interactive utilities are designed to work quickly and provide accu- 
rate, reliable results. These information-gathering commands produce logically- 
organized output in a condensed format for easy screen viewing. In addition, 
TOOLKIT provides Execution Control (EC) file tools (utilities and active func- 
tions) and COBOL subroutines designed for specific programming or user tasks. 


TOOLKIT Components 


Altogether, TOOLKIT provides fourteen utilities, two active functions, and four 
COBOL callable subroutines. TOOLKIT’s menus and help files simplify learning 
each tool and its options. When you are familiar with TOOLKIT, you can use any 
tool directly at MOD 400 command level. 
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How This Manual Is Organized 


This introductory section provides an overview of TOOLKIT and briefly describes 
all tools (see Tables 1-1 and 1-2) so you can see which ones may be of use to you. 
Note that the tables group tools according to their primary users (programmers 
and administrators) — this is not to imply that TOOLKIT places any restrictions 
on the use of its tools. Any user can use any tool for any task. You have to know 
the task, however, and you should already be familiar with MOD 400 conventions 
and operations. 


Section 2 describes how to use TOOLKIT, both through the menu system (for 
learning to use tools) and at MOD 400 command level (for practical daily use once 
you are familiar with TOOLKIT). 


The rest of the manual is divided into three sections, Utilities, Active Functions, 


and Callable Subroutines. (Tables 1-1 and 1-2 identify the section to which each 
tool belongs.) Within each section, tools are organized alphabetically. 
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Table 1-1. TOOLKIT Programmer’s Tools 


Function Description Tool Section 
Accessing Makes MOD 400 System Services accessible to CMCL Callable 
System COBOL programs without requiring programmer Subroutines 
Services knowledge of Assembler 
Clearing Deletes the information in a file or series of files CLR Utilities 
temporary while leaving the file(s) intact 
files 
Displaying Displays attributes for a user-specified series of LBUS Utilities 
bound unit bound units, including memory distribution 
attributes analysis 
Displaying Displays file information (sector statistics, file LIST Utilities 
file fragmentation and hashing data); includes inte- 
information grated WALK-SUBTREE and command driver 
Displaying Returns the number of pending mail messages POST Active Functions 
mail waiting without actually displaying the mail 
message 
Echoing Allows the mixing of text and active functionson TYPE Utilities 
mixed text EC lines, to be echoed back later, with all active 
and active functions resolved 
functions 
Locating Locates and displays all occurences found to SRCH Utilities 
character match a user-specified character string, identi- 
strings fying directory name, filename, and line number 
of the string 
Locating files | Returns the full path of all files found to match HUNT Utilities 
the user-specified filename or star name 
Managing and Allows forms viewing, testing, and attributes FUM Utilities 
using forms listing for single or multiple forms (star names 
accepted); also allows creation of name lists and 
buffer descriptions for COBOL programs that use 
VDAM 
Passing Passes floating-option arguments to executing ARGTAB Callable 
arguments COBOL programs so they can function as com- Subroutines 
mands | 
Passing Passes positional arguments to executing COBOL GETARG Callable 
arguments programs so they can function as commands Subroutines 
Removing Removes, by force, all Logical File Numbers REMALL Utilities 
LFNs (LF Ns) within the specified range 
Reporting Displays snapshots of use and percentage of avail- VOLT Utilities 
device usage able space of all disk and tape devices, by volume 
Returning Returns the name of the volume mounted on the VOLLEY Active Functions 
volume ID specified device 
Supplying Identifies the physical address of a field in POINT Callable 
pointers memory Subroutines 
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Table 1-2. TOOLKIT Administrator’s Tools 


Function Description Tool Section 
Displaying Returns the number of pending mail messages POST Active Functions 
mail waiting without actually displaying the mail 
message 
Echoing Allows the mixing of text and active functionson TYPE Utilities | 
mixed text EC lines, to be echoed back later, with all active 
and active functions resolved 
functions 
Monitoring Displays current group and system activities by SPY Utilities 
overall system overall system, series of groups, or a single group 
activities 
Monitoring Displays detailed buffer and I/O pool statisticsof | BIO Utilities 
pool usage current pool usage, for “tuning”’ pool size to meet 

needs 
Monitoring Displays detailed resource use statistics, by group RUM Utilities 
resource 
usage 
Reporting Displays a quick-look snapshot of who is cur- WHOM _ Utilities 
current rently using the system, and what bound units 
activities are being used 
Reporting Displays record lock usage statistics, to be used KEYS Utilities 
record lock for adjusting system record lock allocation, or for 
usage identifying programs that use too many locks 
Returning Returns the name of the volume mounted on the VOLLEY Active Functions 
volume ID specified device 
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Section 2 


Using TOOLKIT Series-I 


TOOLKIT Series-I is easy to learn and use. To get familiar with TOOLKIT’s tools 
and their options, you can let the menu system guide you. After a while, it will be 
faster to use TOOLKIT directly at the command level, just as you would MOD 400 


commands. This section explains both methods of use. 


Note: For installation instructions, see the TOOLKIT Software Release Bul- 
letin (Order No. HH01-00). TOOLKIT may also be initialized as a lead task; 
see GCOS 6 MOD 400 System Building and Administration (Order No. 


CZ02). 


Using the TOOLKIT Menu System 


To invoke TOOLKIT at the MOD 400 command level, enter: 


TLKIT 


Upon initialization, TOOLKIT will display the TOOLKIT Interactive Utilities 
Menu, shown in Figure 2-1. 


| Honeywell 
Information 
Systems 


Figure 2-1. TOOLKIT Interactive Utilities Menu 


Using TOOLKIT Series-I 


TOOLKIT 


INTERACTIVE UTILITIES 


SPY 
BIO 
RUM 
WHOM 
KE Y 


Enter TOOL Names 


FUM 

LIST 
LBUS 
S RCH 
HUNT 
VOLT 


f1=Other Tools Info f2=Command Line Input 
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The TOOLKIT Interactive Utilities menu lists the names of all tools that can be 
entered directly at the ENTER TOOL NAME prompt; three function key entries 
~ are listed at the bottom of the menu. 


Entering Selections at the TOOLKIT 
Interactive Utilities Menu 


To select an interactive tool, simply enter the first two characters of the tool name 
at the ENTER TOOL NAME prompt, then press the RETURN key. TOOLKIT 
will respond with a help message display for the tool selected. 


For example, if you enter SPY at the Interactive Tools ENTER TOOL NAME 
prompt, TOOLKIT displays the help file and command line arguments entry 
prompt shown in Figure 2-2. 


SPY Selected... 


SPY displays current group and system activities. 
Command Syntaxs SPY [option option wees 


Command Options: -L [nn] Loop display every nn-secs, Default is 6 secs, 
-G [group id group id...group id] Display groups in List 
[group id group id...group id] Exclude groups in List 
Display under FORMS mode [i.e. TCLP) 
Current cumulative values for I/O and CPUS 
Replace MEM and POOL with OFFSET and TRANS NAME 
Reset Disk I/Os and %CPU Totals 
DispLay nn times -A Display without paging 
Display help info -Q End SPY execution 


Enter desired command Line arguments 


SPY 


f8=Return to TOOLKIT Menu 


Figure 2-2. SPY Help File and Prompt Line 


When the help file for the selected tool is displayed, the cursor is positioned next 
to the tool name in the command line, ready for you to enter any desired argu- 
ments (listed under “Command Options” on the help file screen). 


For tools that have no required arguments, you may simply press the RETURN 
key to get the default display. If you do want to enter arguments on the command 
line, begin entering at the current cursor position and put a space between each 
argument. After the last argument, pre the RETURN key. TOOLKIT will exe- 
cute the tool’s function. 


Using TOOLKIT Series-I 2-2 HH06-00 


Using the Function Keys at the TOOLKIT 
Interactive Utilities Menu 


As previously mentioned, the bottom of the TOOLKIT Interactive Utilities menu 
lists three function keys: Other Tools Info, Command Line Input, and Exit. Each 
of these three functions is described below. 


To select one of the functions, simply press the corresponding function key at your 
keyboard. TOOLKIT will execute the selected function. 


To see the Other Available Tools menu, press the F1 key. TOOLKIT displays a 
menu of non-interactive TOOLKIT tools, as shown in Figure 2-3. 


TOOLKIT 


OTHER AVAILABLE TOOLS 


ARG TAB CLR 

CMCL GET ARG 

POST | POINT 

REMALL TYPE 
VOLLEY 


To VIEW information onthe desired TOOL, enter the tool name and press RETURN 


Selections 


f3 = Return to TOOLKIT Menu 


Figure 2-3. TOOLKIT Other Available Tools Menu 


To get a display of help information about one of these non-interactive tools, enter 
the tool name at the SELECTION prompt, then press the RETURN key. 
TOOLKIT will respond with a brief description of the selected tool. When you 
have read the help information, press the RETURN key to return to the 
TOOLKIT Interactive Utilities menu. (Complete descriptions of these Other 
Available Tools are included in this manual.) 


Because the tools listed on this Other Available Tools menu are non-interactive, 
you have to exit TOOLKIT in order to use them. 
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~ To enter MOD 400 (or TOOLKIT) commands without exiting from TOOLKIT, 
press the F2 key. The Execution Control Language (ECL) prompt will be dis- 
played below the TOOLKIT Interactive Utilities menu: 


Ecls: 


Enter the complete command line, then press the RETURN key. When command 
execution is complete, press the RETURN key to return to the TOOLKIT Interac- 
tive Utilities menu. 


Note: If your ECL command line entry contained an error, command execu- 
tion will fail. In this case, when you press the RETURN key to return to the 
TOOLKIT Interactive Utilities menu, the cursor returns to the ECL prompt 
and displays the command line you entered so you can try again. You can 
correct the command line at the ECL prompt, or press the F3 key to move the 
cursor to the ENTER TOOL NAME prompt. 


If your ECL command line entry was correct, command execution will be 
successful. In this case, pressing the RETURN key causes the cursor to 
return to the ENTER TOOL NAME prompt at the TOOLKIT Interactive 


Utilities menu. 


To exit the TOOLKIT menu system, press the F3 key. 


Using TOOLKIT at the MOD 400 
Command Level 


Once you are familiar with TOOLKIT’s tools and their options, you will probably 
prefer to use the tools directly at MOD 400 command level, without going | 
through the TOOLKIT menu system. This is quite simple to do — enter the tool 
name and any arguments exactly as you would within the TOOLKIT menu 
system. 


If you are unfamiliar with the tool’s options and do not want to use the help file, 
refer to the tool descriptions given in the following sections of this manual. Each 
tool description shows the command syntax for invoking the tool at MOD 400 
command level. | 
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Section 3 


Utilities 


BIO 


Utilities 


Function 


Displays detailed buffer and input/output (I/O) pool statistics of current pool 
usage. BIO can be used to measure: the amount of disk I/O on all devices to deter-. 
mine device balancing, buffer pool utilization and performance, and the amount 
of disk I/O for each group in the system. 


BIO requires some preparatory setup (see DEVICE STATISTICS and BUFFER 
POOL STATISTICS under “‘Notes’’). 


For tips on how to analyze BIO statistics, see TIPS ON ANALYZING BIO 
OUTPUT under “Notes.” 


Command Syntax BIO [-L] 
Command Options 
? 
Display HELP messages on command syntax. 


—-L 
Update display every 6 seconds. 


-Q 


End execution of BIO (entered during execution). 


Command Defaults Display once only 
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Display Example 


Each numbered item in this sean corresponds to a description in “Display 
Description.’ 


mee ee ee ee 

DEVICE VOLUME I/O 
Af ee ee ee ee ae a ee ee 
BOOTVL 23938 

CARTRM 44972 

SMDVOL 6063 


6 46 90.88 1.71 


| 
| 
| 
| 3494 99..99.79.16 
| 
| 813 96.12 1.86 
| 


Display Description 
Device Information 
(4) Devices monitored by error logging 
@) Names of volumes mounted on the device 


(3) Total disk I/Os since the last reboot 


Buffer Pool Information 
General public buffer pool name 
Percentage of a disc block found in memory (so a physical I/O is not necessary) 


Percentage of a modified buffer that must be prematurely written to disk in 
order to free a buffer for the current request 


Percentage of times that a buffer reservation had to wait for a buffer to become 
available 


OROMOTOIS 


Percentage of times that a disc block is read versus the percentage of times it is 
written 


© 


Number of open files that are using the specified buffer 
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Utilities 


T/O Information 


Group ID 


Total number of disk I/Os since the group began or since BIO was initiated 
(whichever was later) 


Notes: 
Device Statistics 


To monitor device statistics, set up error logging: 
1. Add tothe CLM_USER file: 

LDBU ZERRST 
2. Add to the START_UP.EC file: 


> > SYSLIB2 > START__ELOG MEMORY 
> > SYSLIB2 > START__ELOG device_id (eg., MSMO0) 


for each device to monitor. 
examples: 
START__ELOG MEMORY 
START__ELOG MSMO00 


START__ELOG RCMO00 
START__ELOG MT900 


See the MOD 400 System User’s Guide (Order No. CZ04) for more information on 
error logging. 


Buffer Pool Statistics 


To monitor buffer pools, change the START_UP.EC file. Add to the 
START_UPEC file: 


> > SYSLIB2> CBP poolname arguments 


examples: 


CBP P256 -BFSZ 256 -NBF 15 
CBP P512 -BFSZ 512 -NBF 15 


See the MOD 400 Commands manual (Order No. CZ17) for more information on 
buffer pools. | 
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Utilities 


Tips on Analyzing BIO Output 


1. 


a 


%Hits should approach 100% in a perfect environment. — 


2. %F lush should stay below 10%. — 
3. 
4 


% Response should stay below 1%. 


. If @Hits is below 50% and %F lush is below 10% you can probably decrease the 


number of buffers. 
If %F lush is greater than 10%, add buffers. 
If %Response is greater than 1%, add buffers. 


Buffer pool statistics are measured from the last time the system was 
rebooted or “> >SYSLIB2>BPI —RESET” was executed. To measure the 
effect of a particular structured test it is recommended to reset the statistics. 
Also, to get an idea of total buffer pool utility, measure the system several 
times over a day’s activity. 


Resource Requirements 


MEMORY _ Shared procedure 1004 words 
Data | 120 words 

CPU Varies (DPS model 75 uses 2.1%) 

CIP Required (simulator use acceptable) 


DISK I/O None 


CLR 


Function 


Deletes the information in a file or series of files while leaving the file(s) intact. 
CLR will empty from one to five files, retaining all file attributes. A typical use is 
to clear temporary files used by an execution control (EC) process. 


Command Syntax CLR filename! filename? ... filenamed 


Command Options 


filename 
Any MOD400 file pathname is valid. 


Command Defaults None. 


Resource Requirements 


MEMORY: _ Shared procedure 74 words 
Data 32 words 
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FUM (Forms Utility Manager) 


Utilities 


Function 


Allows forms viewing, testing, and attributes listing for single or multiple forms; 
also allows creation of namelists and buffer descriptions for COBOL programs 
that use VDAM. Accepts star names. | 


Command Syntax FUM form _name [process_option] [control_ options] 


Command Options 
? 

Display HELP messages on command syntax. 
form_name | 


Any form name or star name. 


process_ option 
[-L\- P\-T\-V \-E \-C] [form_file_ path] 


-L 
List form names and form attributes (revision number, date/time 
updated, number fields, size, screen, block mode, field mode, 
buffer). 
—P 
Print form(s) as they would appear on the CRT. 
-T 
Test form(s) for valid attributes. 
-V 
View form(s) on CRT. 
a 
Erase form(s) from forms _ file. 
—C 


Create copy files needed by COBOL programs. 
form_file_ path 
~ Use alternate forms file other than > > FORMS >FORMS. 


control_ option 
—] 
Information option. Used with print option (P) to display column 
numbers at top and bottom. 


Used with copy option (—C) to display the current form that is being 
processed as FUM goes through the forms _ file. 


Used with the erase option (—E) to request verification from the 
user before erasing each file. 


Used with the print option (—P) to print a column/row border 
around the form. 


—O out_ path 


Change the user_ out pathname. Eliminates the need to execute 
the file _out (FO) command. 


—D copy_dir 


Change the output directory for copy files from 
> >LDD>INCLUDE. 


-—G [R\W\N] 
Create specific copy files. 
R 


Create NAMELIST and BUFFER copy files for fields which 
can be both input and output (variable entry fields). 


Create NAMELIST and BUFFER copy files for fields which 
can only be updated by the application (constant fields). 


Create NAMELIST and BUFFER copy files for non-display 
fields. 

The default is to create NAMELIST and BUFFER files for 
all of the above. 


Syntax: 
-G 
-G R 


-G W 
-GN 
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The filenames created for —G and its various options are: 


Option 


No Option (Default) 


R 


Ww 


N 


Filename 


Fform.IN.C 
Bform.IN.C 


Rform.IN.C 
Iform.IN.C 


Wform.IN.C 
Oform.IN.C 


Nform.IN.C 
Xform.IN.C 


File Type 


NAMELIST 


BUFFER 


NAMELIST 
BUFFER 


NAMELIST 
BUFFER 


NAMELIST 
BUFFER 


where ‘form’ is the last six (6) characters of the form__name. 


Command Defaults 
form__name All forms found in forms_file 
forms _file > >FORMS > FORMS 
copy__dir > >LDD> INCLUDE 
process__ option —-L 


An entry of ‘FUM’ with no parameters will produce a complete list of all forms in 
> >FORMS>FORMS. 


Command Line Examples 


FUM 7 List all forms in > >FORMS>FORMS 
FUM A+Z List all forms that start with “A” and end with “Z”’ 
FUM ??? List all forms with 3 character names 


FUM* -L >MYFORM List allformsinthe forms _file “MYFORM” 
FUM A* -P —-O!LPTOO Print forms that start with ‘‘A’ on the printer 


FUM ANYFORM -T Test form “ANYFORM” 
FUM * -T Test all forms 
FUM * -C Create copy files for all forms 


Generated COBOL Copy File Examples 
01 BB-RELATION. 


03 B-NAME PIC X(30) VALUE SPACE. 
03 B-ADDRESS PIC X(30) VALUE SPACE. 
03 B-ADDRESS PIC X(30) VALUE SPACE. 
03 B-CSZ PIC X(29) VALUE SPACE. 
03 B-PHONE PIC X(10) VALUE SPACE. 
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01 FN-RELATION. 
03 F-NAME 

03 F-ADDRESS 

03 F-ADDRESS 

03 F-CSZ 

03 F-PHONE 

03 FILLER 


Display Example 


PIC X(05) VALUE “NAME “. 
PIC X(05) VALUE “ADD1 “. 
PIC X(05) VALUE “ADD2 “. 
PIC X(04) VALUE “CSZ “. 
PIC X(06) VALUE “PHONE “. 
PIC X(01) VALUE “.”, 


Each numbered item in this example corresponds to an entry in “Display 
Description.” 


FORM NAME REVISION UPDATED FIELDS SIZE SCREEN BLOCK FIELD BUFFER 
AN YBOX 4 1986/02/03 1650:25 1 4 223 31 
ANYFLD 6 1986/03/05 1336:32 22 53 269 314 
AN YMENU 2 1985/12/08 1844:08 1 4 244 31 
AP10QA 1 1985/11/27 0943:12 13 111 242 290 
9 | 


Display Description 


Size of terminal buffer 


OOOOOOOOO 


Resource Requirements 


MEMORY _ Unshared procedure/data 


Utilities 


Size of screen descriptor 


Name of the form in the forms file 

Number of times the form has been updated 
Date/time of last update 

Number of variable fields on form 


Field size total (in words) 


Size of block-mode screen descriptor (in words) 


Size of field descriptors (in words) 


11268 words 
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Function 
Returns the full pathname of all files found (on a volume) to match the specified 
filename or star name. | 


Command Syntax HUNT filename 


Command Options 


filename 


Any MOD 400 filename or star name. 
Command Defaults None. 


Example 
Anentry of: 
HUNT *.EC 


Might produce: 


BOOTVL>USER1 > START__UP.EC 
BOOTVL>USERA>START__UPEC 
BOOTVL>USERA>COMPILE.EC 
BOOTVL>START__UPEC 
BOOTVL>SET_DATE.EC 


...etc. 


a 
a 
aA 
am 
a 


Resource Requirements 


MEMORY _ Unshared procedure/data | 904 words 
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KEYS 


Utilities 


Function 
Displays record lock usage statistics, to be used for adjusting system record lock 
allocation, or for identifying programs that use too many locks. 


Command Syntax KEYS [option ... option] 


Command Options 


—L [nn_ seconds] 


Loop every nn seconds (—L with no argument defaults to looping every 6 
seconds) 


—-T nn_ intervals 
Loop nn times 
—A 
Auto-no paging 
-Q 


Terminate execution 


Command Defaults Display once 
Paging 


Display Example 


Each numbered item in this example corresponds to an entry in “Display 
Description.” 


FO EE RE A OS SS EE EE So, AD EE NERS SAE | 
) 


KE Y S | 


Record Locks: 3=Used 47=Free 50=Al located 200=Maximum 
Locked file Users Group Control intervals RW-Lock R-lock W-tLock 
LOCKTEST 2 L4 1 Y 
W=> LO 
u 10 Y 
\ a sseneeeemmucnsnenaemnees/ 
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Display Description 


© 


Number of RECORD LOCKS used while KEYS was in execution. 
Number of RECORD LOCKS free. 

Number of RECORD LOCKS allocated. 

Maximum number of RECORD LOCKS. 

Name of file with outstanding lock. 

Number of users of locked file. 

Identification of group waiting for the lock (indicated by W= >). 
Group ID. 

Control interval numbers locked. 


Lock type: ‘Y’ (Yes) or blank (No) for the following: 
Read-Write Lock 
Read Lock 
Write Lock 


®PDOOQOOOO® 


Resource Requirements 


MEMORY _ Shared procedure 732 words 
Data 80 words 

CPU Varies (DPS 6 model 75 uses 1.5%) 

CIP Required (Simulator use acceptable) 


DISK /O None 
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LBUS 


Function 


Displays attributes for the specified series of bound units, includes a memory dis- 
tribution analysis. LBUS will search a path (directory > filename) for bound units 
matching the filename or star name. 


Command Syntax LBUS [pathname] [option option] 


Command Options 
~A 


Auto (printer mode) 


Display HELP messages on command syntax 


The following options are mutually exclusive; LBUS will accept the last option 


entered: 
—C 

Sort by creation date 
—D 

Sort by data size 
—P 

Sort by procedure size 
—-T 

Sort by total size 
Display Example 


Each numbered item in this example corresponds to an entry in “Display 
Description.” 
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Utilities 


DIRECTORY: 


*“BOOTVLOTOOLKIT 


BOUND 


a ow — —. = = —_— ow — ee on tee ee a ow am -—-= =P Gun gut Com awe cup GSD om ou wee ome ome 2 am am ome am On ae Ot ee oe oe wow nae 2 EP A a CEE mee eam meee ae eee ee 


B NAME 


ARGTAB 93 Y 
BIO 1004 4124 Y 
CLR 32 406 Y 
CMCL 2 24 =#Y 
FUM 3268 8000 11268 . 
GETARG 46 o 46 OY 
KEYS 732 80 gi2 Y 
LBUS 6136 1601 7737 Y 
LIST 41661 3322 14983 Y 
POINT g 0 8 Y 
POST 215 60 275 ~#Y 
REMALL 181 441 321. YY 
SPY 1614 590 2204 Y 
SRCH 1379 0 1373 

TYPE 29 82 110 Y 
VOLLEY 190 40 200 «= 


SHR GSH SYS PRI PCH MOD OVR 


—2 een ae a ow ow ow — 22 ow an ao a me ow ow an ow eee eee a ew cee eee SET OSD eee EP OD OD Om OS CED OE EE Be cmt Om 8) ew ae OD ED eae OED re ee oe 8 ee ee > De ee oe ane et ae om on ow oe ae aw an ae 


CREATION 


1986/02/18 
1986/02/13 
1985/11/13 
1985/11/17 
1986/03/04 
1985/12/13 
1986/02/12 


4986/02/21 


1986/02/18 
1985/11/17 
1986/01/27 
1986/01/06 
4986/02/13 
1986/03/19 
1901/01/01 
1986/02/14 


1406 
1516 
0211 
1312 
1902 
1220 
1338 
1353 
1624. 
1311 
1343 
2249 
2327 
1450 


Oe a NE ES ED EOP RR OED ED a mn OES cree GD GRE OES GED Sem SEE) WED cams GD Ee SUE EE ED Oem mee ORD ee eaeee Smee am ee a EP eee ee SE GD ete SES ED nD cee ee CO ee SD He wees OE ED mm gmme e nee ee GE Gee eee came Geet cane eens Ses OR cl eee wei ae 
ee ee ee ee ee rl ss lr lL er SS htt 


MEMORY = 
SHARED PROGRAMS = 14 


ee eee ee ee ane SAO aD nD Ge ee eree em oe ee ee ees ee ee ee ee eo ae ee ee ome ee oe ae soe om —— ee oe oe oe ow oe oS ee ee cee ee eee ee oe ee oe ee oe oe oe 
ee 2 ae an a aw ae Oe oe owe a ae OMe ee eam ee a OD an ee —- am eee ee oe oe oe > me ES aD OED UE Ce cae CEE oe ame oa ee one ae 


SYSTEM = 34.52% USER 
UNSHARED PROGRAMS = 2 


40,690 


Display Description 


® 
@) 
@) 
@) 
©) 
© 


GXOTOIS) 


- Directory name 


Internal bound unit name 

Procedure size 

Data size 

Total program size (procedure + data) 


“Y’ (yes) or blank (no) for the following: 
Share bit 
Global share bit 
System bit 
Privilege mode 
Patched 


Long address/short address format (LAF/SAF) 
Number of overlays 
Creation date/time 


Total memory (total of TSIZE column) 


3-14 


65.47% 
AVERAGE nhs = 2,543 


HH06-00 


Percentage of SYSTEM POOL usage 
Percentage of USER POOL usage 
Number of shared programs 


Number of unshared programs 


@@O@O®O® 


Average program size in words 


Resource Requirements 


MEMORY: _ Shared procedure 6136 words 
Data 1601 words 
CIP Required (simulator use acceptable) 
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LIST 


Utilities 


Function 


Displays file information (sector statistics, file fragmentation and hashing data); 
includes integrated WALK-SUBTREE and command driver. Accepts star names. 


Command Syntax LIST [pathname] [option option ... option] 


Command Options 


pathname 
[directory > ]filename or star name. Pathnames are expressed as: 
Directory > filename ... filename 


LIST supports a maximum of 10 filenames. 


Display HELP messages on command syntax 
-T 
List specific file organization types. The valid types are: 
ALT, DIR, DYN, F__R, IND, INX, IDS, REL, RAN, SEQ, FILES 


If the -T option is not used, all types are displayed. This option can also be 
used in combination with the other options to provide additional selection 
criteria. 


—BF 
Brief display. Displays name of file, type, number of sectors*. 


-FULL 


Full display. Displays name of file, type, logical record size (LRSZ), control 
interval size (CISZ), number of sectors, number of sectors used, number of 
extents*. 


-CISZ 


Control interval size. Displays file name, control interval size (CISZ)*. 


—-LRSZ 
Logical record size. Displays file name, logical record size (LRSZ)*. 


—N 


Name only. Displays file names only*. 


—-XT 


File extensions. Displays file name, number of extents*. 


*Options BF, FULL, CISZ, LRSZ, N, and XT are mutually exclusive. 
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Utilities 


-S 


—SR 


Sort the files by display data. Major key is selected option (or file type if no 
option is selected); minor key is file name. 


Sort major key in descending order. 


—ECL ‘Ecl string’ 


-ACK 


-GTO 


—P 


—A 


used to execute a MOD400 command for each file LIST encounters. Use % 
for the substitution of filename and %% for the substitution of full 
pathname. 


For example: LIST ALL.* -ECL ‘PF %’ 


This will find any file in the current working directory with a filename of 
ALL and any extension, and perform a Peruse File on each of these. 


Used in conjunction with the ECL option to request an acknowledgment of 
each file BEFORE performing the command string in the ECL option. 
LIST will display the filename and prompt you for execution of the com- 
mand. Valid responses are: 


Y — execute command 
Q — stop processing 
Use any other key to skip execution of command string. 


Walk the directory structure and display against each directory occur- 
rence. This option will gather up all directories subordinate to the initial 
directory, sort them in ascending sequence and then begin the list process. 
This option will also produce grand totals for all the listed directories (see 
Totals Display below). 


Display grand totals only. No detail information is displayed. 


Print mode. Sets the line length to 132; expands the number of entries on 
a display line. When creating a print file (FO filename), the Auto Mode 
option should be used in conjunction with this option. 


If the ECL option is used with the Print option, the command is written 
out to the user-out file instead of being executed. 


Auto mode. Prevents the “More ?” question appearing after each page. 
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Command Defaults Displays current directory’s file information 


Displays all file organization types 


No grand totals 

Display Example 
Each numbered item in this example corresponds to a description in “Display 
Description.” 

DIRECTORY: “*BOOTVL>TOOLKIT BY TYPE 

ARGTAB FUR BIO FR CLR FR CMCL 2 

DATA @_ dir @ rum FR GETARG FR INF, DAT Dyn 

IX1 ALt KEYS FR LBUS FER LIST FR 

POINT FR POST FR PRTO Seq REMALL FR H 

SPY F A SRCH FER VOLLEY FR 


eee ED OED GRD eee ee 8S EE One AES OND ED cD CD DD ED et RD te Ee Ge eS De eH ee CD GHD SED ant Gene ene ant eRe Gm) eam GED see eee SED ORD eee ate KE> ED ome COD GD SED CEP SED GD alee GED Ed CEE ED CED ew OD cE ce OR ae OR OE OE eee em a 


FILES HASH EXTENTS SECTORS USED ALLOCATED RECOVERABLE %USED FRAG RATIO 
19 100% 23 114 232 24 49.13 2.03 TO 1 


Display Description 
(1) Directory Name 
(2) Filename (of each file in the directory) 
(8) File Type (of each file in the directory) 


Totals Display 


Totals are displayed after each invocation of LIST for each directory searched; 
grand totals are displayed when the walk-subtree option (WS) is selected. The 
total line consists of the following: 


(4) Total number of files 

Hashing (efficiency of file distribution) 

Total number of file extensions 

Total number of sectors used within allocated number 


Total number of allocated sectors 


OLOTOTONS 


Total number of sectors which would be given back to the available sector pool 
if a SHRINK command were executed. 
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Utilities 


Percentage of used / allocated sectors 


G1) Ratio of extensions to files (fragmentation ratio) 


Notes 


The responses to the MORE? question are 
Q Quit 


T Quit and terminate walk subtree 
A Switch to AUTO mode 
Any other character to continue 


Resource Requirements 


MEMORY: _ Shared procedure 
Data 


CIP: Required (simulator use acceptable) 


3-19 


11661 words 
3322 words 
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REMALL 


Function 

Removes, by force, all Logical File Numbers (LFNs) within the user-specified 
range. Removing by force affects both open and closed files. 

Command Syntax REMALL [first_Ifn [last_lfn]] 


Command Options 


First__lfn and last__lfn are optional: 
If a first_ lfn only is entered, REMALL will remove only one LFN. 


Command Defaults If no options are entered, removes all reserved LFNs 
within the user’s current group. 


Command Line Examples and Descriptions 


REMALL 23 


Remove reserved LFN from file 23, even if that file is open 


REMALL 23 45 


Remove all reserved LFNs from files 23 through 45, from both open and 
closed files 


Resource Requirements 


MEMORY: Shared procedure 181 words 
Data 140 words 
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RUM 


Function 
Displays detailed resource use statistics, by group (to identify heavy pool use). 


Command Syntax RUM [option option .... option] 


Command Options 
2 
Display HELP messages on command syntax 
-L [nn] 
Loop display every nn seconds. Default is 6 seconds. 
—G [group id group id...group id] 
Display only those groups in list. 
~X [group id group id...group id] 
Exclude groups from display. 


-T nn 
Display nn times. 
—-A 
Display without screen paging. 
—F 
Display under FORMS mode (i.e., Transaction Control Language Pro- 
cessing: TCLP). 
-Q 


End execution (entered during execution). 


Utilities 3-21 HH06-00 


Display Example 


Each numbered item in this example corresponds to a description in “Display 
Description.” 


RUM - Resource Usage Monitor 
@ o— -——@ © 
IRBs 0098/0052/0220 TSAs 0070/0051 Overlays segiuadior ial 0000/1327 


F epee 
3416652 Disk I/0 650167 Comm 1/0 CP Secs S= 2196.5 U= 2207.9 I= 1146.7 


oO 3] 10) 


Elapsed Time 00:01:25 Rtockss 5/0100 Mem errs: O 


A CD AD AA CD GED ET ED ED CUP CED CER CEO cD GED CED CRD CEE BOP OED GED GED GD GED GNP GRD ene GUD GED ERD ERD CD OD me CED cD GD OR CEE CEP Gd OUD cmt Gee 68D Ome Oe  ©™ CEP > ED nt ERR om) Om Om OD cee Ce OP CD EOF EP ED Onn ee ee ne ae ee es oe 


Disk I/Os Comm I/0s Cpu secs Cur mem Max mem MP Type 


eeaese> = REECE 0 GMNSNINECREEEEEiRi LESTE 0 ETE 0 (EULER GEE 


356 257 8.5 1952 5056 AB NPC1 

1480 204 25.4 1120. 10560 AB NPC1 
180083 146235 4046.3 B83 84 8736 AB NPC1 
New jomeee/ amma Nomen joo Neon soe” Noe oe” 


Display Description 

Overall Volume Statistics 

Intermediate Request Blocks (IRBs): Maximum/Minimum/Allocated 
Trap Save Areas (TSAs): Current/Minimum 

Overlays: Requested/Loaded 


System Macro calls (MCLS): 
Without stack expansion/With stack expansion 


Total number of disk_ I/Os since RUM was invoked 
Total number of comm_ I/Os since RUM was invoked 
CP Seconds: System/User/Idle 

Time elapsed since RUM was invoked (HH:MM:sSS) 


Maximum record locks used while RUM executing/number allocated 


@O@OOQCVOOD OOOO 


Number of memory errors logged 


Group Statistics 
G1) Group ID 
(42) User name 
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(13) Total physical disk I/Os since RUM was invoked 
Number of comm I/Os since RUM was invoked 
(15) Total CPU seconds since RUM was invoked 
Amount of memory used by bound unit (decimal) 


(7) Peak amount of memory used by group 


Memory pool ID 


Memory pool type; these are: 


X — exclusive 

S — swappool 

B - batch 

N — non-exclusive 

P — protected 

C — contained 

I —- independent 

The number under the ‘type’ heading is the execution ring of the pool. 
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SPY 


Function 


Displays current group and system activities by overall system, a series of groups, 
or a Single group. Typical uses of SPY include: 


e Measure the effects and resources of a particular program. 

e Snapshot of the current system users. 

e Measure the progress of a particular user. 

e Provide Transaction Control Language Processing (TCLP) users with a tool to 
show system usage. 


Command Syntax SPY [option option.... option] | 


Command Options 
? 
Display HELP messages on command syntax. 
—L [nn] 
Loop display every nn seconds. Default is 6 seconds. 
-G [group_id group_id...group_ id] | 
Display only those groups in list. 
-X [group_id group_id...group_ id] 
Exclude groups from display. 


-T nn 
Display nn times. 
—-A 
Display without screen paging. 
—F 
Display under FORMS mode (i.e., TCLP). 
—C 
Current cumulative values for I/O and CPU%. 
—D 


Debug mode, to replace memory and pool usage data with data for pro- 
gram offset and transaction name for TCLP. 
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Utilities 


-Q 
End execution (entered during execution). 
—R 
Reset Disk I/Os and %CPU Totals (entered during execution). 


Command Defaults Displays data for all groups on the system 
Data averaged over life of execution 
Pages screens 


Displays memory and pool usage data (and does not dis- 
play program offset and transaction name) 


Display Example 


Each numbered item in this example corresponds to an entry in “Display 
Description.” 


8 
9 9 @ 9 @ 99 o¢ 


GROUP {| PERSON ILVL] OIRECTORY {DISK IO0S| PROGRAM/MEM | %CPU {POOL 
L7 JADRIA | 32] DEV | | PRO 34189 | }AB NPC1 36363 
L8 =>|KEN | 32] KENK | 9| SPY 2204 | 6.811$$ XCO 26624 
LO JOPE | 34] QPERATOR | | OPER | | 

M $P JADRIA | 34{ DEV i | DMON | | 
$H 1HIS | 32] POTTER | | AMT | | 
$L JLISTEN 1 41] | | LISTEN | | 
$s |OPERATOR | 29{ POTTER | | Z3EXEC 26624 | | 


Display description: 


Ga) State and Group ID. States are: 


space active 

mount pending 

aborted (waiting on open I/O) 
suspended 

dormant 


SEE E-< 


User name 

Task level 

Current working directory 

Total physical disk I/Os since SPY was invoked or reset 


Bound unit currently in use 


OOOO® 
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(7) Amount of memory used by bound unit (decimal). 
(8) Percentage of cumulative CPU time since SPY was invoked or reset 


(3) Pool usage — Pool ID 
Pool type 
Mernory usage 


Note: in ‘debug mode’ (option D), MOLY and Pool usage are replaced by the 
following: 


Program — relative program offset. 


Transaction — transaction name if TCLP is being used. 


Resource Requirements 


MEMORY: _ Shared procedure 1614 words 
Data 590 words 

CPU Varies (2.5% on DPS6 model 75) 

CIP | Required (simulator use acceptable) 


Disk I/O None 


Notes 


1. System performance enhancements may be measured by recording 
statistics before and after changes. 


2. SPY’s output may be written to disk and used for logging (FO file name). 


3. The disk I/Os are cumulative and zero-based; that is, when SPY begins it 
records the current number of disk I/Os the group has performed and sub- 
tracts this base number before each subsequent display. This is the number of 
physical I/Os which occur. If buffer pooling is in effect, the I/Os satisfied by 
memory blocks are not recorded. 


4. CPU percentage is the percent of CPU time used over the available time since 
SPY began. This measurement will not show the system peaks but is used to 
measure the CPU usage over time. If this number begins to increase, the 
group is becoming more CPU intensive; if the number decreases, the group is 
becoming more I/O bound or is idle. 
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VOLT 


Function 


Displays snapshots of use and percentage of available space on all disk and tape 
devices, by (mounted) volume. Typical uses: 


¢ to quickly determine where space is available for file growth 
e to find out which volumes are mounted on system devices 
Command Syntax VOLT 

Command Options 

None 


Command Defaults N/A 


Display Example 


Each numbered item in this example corresponds to an entry in “Display 
Description.’ 


2) 3 4 ] o 
aN on 
Device Volume %Free space Last reserver Creation Date/Time 
1MS MOO BOOTVOL 67.3 ~L4 1986/03/22 14:30 
1FcmMOO FXDCMD §5.5 1986/01/28 09:00 
{FCMO1 R MV CMD 3.2 L1 1986/01/28 10:05 
ImMTSO0 TAPEUP L3 1986/04/19 13:25 


Display Description 
(4) Device ID 
(2) Name of mounted volume 
(3) Percentage of free space 
(4) ID of the last group to reserve the device 


(5) Date and time the volume was created 


Resource Requirements 


MEMORY Shared procedure 190 words 
Data 10 words 
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~  SRCH 


Function 


Given a character string or star name string, locates and displays all records that 
include the string. Display includes the directory name, filename, record line 
number, and actual record data. Typical uses for SRCH include: 


e Find all programs in a COBOL library referring to a specific subroutine or FD 
(data file description). 


e Find all Transaction Control Language Processing (TCLP) 
programs initializing a specific form. 


Command Syntax SRCH [pathname] ‘string’ [option .... option] 


Command Options 


pathname 


Directory > filename/star name. 


string 
Any valid ASCII string. 


Display HELP messages on command syntax. 


-G 

Global search. Report all occurrences of string found. 
—-S 

Silent mode. Report only on files containing string. 
_F | 


Form feed. Issue page eject before each new file reported. 


Command Defaults Lists all files searched. 
Reports only the first occurrence found in each file. 


Example 
For an entry of: 


SRCH COBOL_PRG ‘CALL -S -G 
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WHOM 


Utilities 


Function 


Quick-look snapshot of who is currently using the system, and what bound units 
are being used. 


Command Syntax WHOM 
Command Options 

None 

Command Defaults N/A 
Display Example 


Each numbered item in this example corresponds to an entry in “Display 
Description.” 


Vie 
Group Poot’ State Bound unit Lev Device Person. Acct, Mode 


L8 AB WHOM 20 !ATODOS ADMIN. SYS ADMIN, ADM 
LO AB LS e2 tATDO1 USER. USER. INT 
$P AB M DMON 22 !CONSOLE OPR.DAEMON 


Display Description 


(1) Group ID 
(2) Pool ID 


(3) State of group; states are: 
space active 


M mount pending 

xX aborted (waiting on open I/O) 
S suspended 

D dormant 


Name of bound unit currently executing 
Execution level 
User-in device ID 


User identification (Person.Account.Mode) 


QO©OO 
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Resource Requirements 


MEMORY: Shared procedure 950 words 
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Section 4 
Active Functions 


POST 


Function 


Returns the number of pending mail messages for the current user, without actu- 
ally displaying the mail. A typical use is to notify the user at login that mail mes- 
sages have been received. 


Command Syntax [POST] 


Command Options 


None 
Command Defaults N/A 


Example 
An entry of: 
> >SYSLIB2>TYPE ‘You have * [>>SYSLIB2>POST] ‘ mail messages’ 


could return: 


You have 0 mail messages 


Resource Requirements: 


MEMORY _ Shared procedure 215 words 
Data 60 words 
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VOLLEY 


Function 


Given a device name, returns the name of its mounted volume. 
Command Syntax VOLLEY [device name] 


Command Options 
device name 
Any valid device name. 


Command Defaults N/A 


Example 
An entry of: 
> >SYSLIB2>TYPE ‘Boot volume is: ’ [> >SYSLIB2>VOLLEY MSMO0] 


could return: 


Boot volume is: MYVOL 


Display Description: 
(4) The VOLUME_ID if a volume is mounted. 
(2) The string “Empty” if the device is valid but no volume is currently mounted. 
(3) The string “Null” if the device doesn’t exist. 
Note: The returns “Empty” and “Null” are UPPER and lower 
case, as shown. 
Resource Requirements: 


MEMORY _ Shared procedure | 190 words 
Data 10 words 
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Section 5 
Callable Subroutines 


ARGTAB 


Function 


Passes floating-option arguments to executing COBOL programs so they can 
function as commands. Any number of arguments may be passed using a single 
call. (See GETARG for passing positional arguments.) 


Subroutine Syntax 
Add to the WORKING-STORAGE SECTION of your program: 


01 OPTION-TABLE-SIZE. 
10 MAX-OPTIONS COMP-1 VALUE n. 


01 OPTION-TABLE. 
05 TABLE-ENTRY OCCURS n TIMES. 
10 THE-OPTION. 
20 THE-DASH PICTURE X(001). 
20 SELECTION PICTURE X(011). 
10 ARGUMENT-SIZE COMP-1. 
10 THE-ARGUMENT PICTURE X(060). 


(Where “n’” = the maximum number of options (programmer’s choice)) 


Add to the PROCEDURE DIVISION of your program: 
CALL “ARGTAB” USING OPTION-TABLE OPTION-TABLE-SIZE. 


Note that ARGTAB may be called once only per execution of the COBOL pro- 
gram. Also, you can name the fields as you like, as long as you use the same name 
in the CALL statement. | 


Example 


ARGTAB assumes that you have preceded each option with a dash (—). Options 
with a preceding dash are placed in the WORKING-STORAGE SECTION field 
called THE-OPTION. Arguments (which do NOT have preceding dashes) are 
placed in THE-ARGUMENT. The size of the argument is placed in ARGUMENT- 
SIZE. This is repeated for each argument in the command line. 
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For an entry of: 
CBLPRG -L -T 10 -Z 
(Assume that CBLPRG calls the ARGTAB subroutine.) 
Using the WORKING-STORAGE section description shown above (in “Subrou- 


tine Syntax’”’) ARGTAB passes the arguments into a table as follows: 


SELECTION (1) will contain ’L 
SELECTION (2) will contain ’T’ 
THE-ARGUMENT (2) will contain 710’ 
ARGUMENTSIZE (2) will contain ’2’ 
SELECTION (8) will contain ’Z’ 


ARGTAB will also function properly if the program is a lead task. 
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CMCL 


Function 


Makes MOD 400 System Services directly accessible to COBOL programs. CMCL 
can use TOOLKIT’s COBOL copy files (shown in the appendixes in the back of 
this manual) and can work in conjunction with the POINT subroutine. 


Subroutine Description 


The CMCL subroutine allows COBOL programs to execute any System Service 
Call described in GCOS 6 MOD 400 Programmer’s Guide — Volume II (Order 
No. CZ06). This provides COBOL programs with the interface to MOD 400 serv- 
ices while eliminating the need to write customized assembly language subrou- 
tines to satisfy special requirements. It also provides more efficient ways to per- 
form services than executing a command line and puts you in control of the 
outcome of a service request for better error handling. 


Requirements for programs using MOD 400 System Services are explained below 
and illustrated in the example that follows. 


Add to the WORKING-STORAGE SECTION of Your Program: 


1. Register Descriptions: all programs that call system services must contain 
descriptions of DPS 6 “B” and “R”’ registers. TOOLKIT provides a complete 
description of these registers in the COBOL copy file REGS.IN.C (see 
Appendix A). If you include the statement: 


COPY REGS. 


in the WORKING-STORAGE SECTION of your program, REGS.IN.C will be 
copied from directory > > LDD>INCLUDE into your program during 
compilation. 


2. Data Descriptions: each service call needs supporting data descriptions. The 
GCOS 6 MOD 400 Programmer’s Guide — Volume II contains the data 
descriptions required for each system service call. TOOLKIT provides 
COBOL copy files for five commonly-used data descriptions (Create File 
Information, File Information Block, File Information, Get File Information, 
and Expand Path Table — see Appendix B). If you include a COPY statement 
(similar to the one shown in Point 1, above) in the WORKING-STORAGE 
SECTION of your program, the specified data description will be copied from 
directory > > LDD>INCLUDE into your program during compilation. 


If the service call requires data descriptions other than the five provided by 
TOOLKIT, you will have to enter the code (exactly as shown in the GCOS 6 
MOD 400 Programmer’s Guide — Volume ID) in the WORKING-STORAGE 
SECTION of your program. 
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3. Memory address pointers: many service calls require pointers. TOOLKIT’s 
POINT subroutine can provide the value of an address of any 01 level item in 


your program. To use the POINT subroutine, you must set up a 


WORKING-STORAGE SECTION data description for the memory address 


pointer. 


4. MCL description: all service calls require an MCL description in the 


program’s WORKING-STORAGE SECTION. The MCL description identifies 
the service call name and describes its data field. Appendix C includes the 


MCL descriptions of all MOD 400 System Service Calls. 


Subroutine Syntax 


Once the supporting register descriptions, data descriptions, and pointers (if 
needed) are included in the WORKING-STORAGE SECTION of your program, 


the calls can be made from the PROCEDURE DIVISION: 


CALL “CMCL” USING MCL-REGS MCL-service. 


(Where “MCL-service’’ is the service call name, shown in SMCLS.IN.C in 


Appendix C.) 


CALL “POINT” USING structure structure-ptr. 


- (Where “structure” is a Group-item, and “structure-ptr”’ is a COMP-2 field, as 


defined in the WORKING-STORAGE SECTION of the program.) 


Example 


This example demonstrates how a COBOL program could create a MOD 400 tem- 
porary file. Note that the example shows the program after compilation, so the 


copy files (specified by the COPY statements) now appear in the program. 


* CED RD Ca nt RO CED Ay GT GE D SOHATS es  ah ES NS OEROEAD 


WORKING-STORAGE SECTION. 


* 


* COPY REGS. 


01 MCL-REGS. 


* Se ER EN Oe en nae 


* 


05 R-B7 
05 R-B6 
05 R-B5 
05 R-B4 
05 R-B3 
05 R-B2 
05 R-B1 


05 R-R7 
05 R-R6 
05 R-R5 


Callable Subroutines 


USAGE COMP-2 VALUE 
USAGE COMP-2 VALUE 
USAGE COMP-2 VALUE 
USAGE COMP-2 VALUE 
USAGE COMP-2 VALUE 
USAGE COMP-2 VALUE 
USAGE COMP-2 VALUE 


USAGE COMP-1 VALUE 
USAGE COMP-1 VALUE 
USAGE COMP-1 VALUE 


999 99909999 
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05 R-R4 USAGE COMP-1 VALUE 0. 


05 R-R3 USAGE COMP-1 VALUE 0. 
05 R-R2 USAGE COMP-1 VALUE 0. 
05 R-R1 USAGE COMP-1 VALUE 0. 


* COPY SCREATE. 
01 CREATE-FILE-TABLE. 


20  CREATE-LFN COMP-1 VALUE 1. 
20 CREATE-PATH-PTR COMP-2. 
20 CREATE-ORGANIZATION PIC X(02) VALUE “R‘1’”. 
20 CREATE-RECORD-SIZE COMP-1 VALUE 58. 
20  CREATE-CI-SIZE COMP-1 VALUE 1024. 
20  CREATE-INITIAL-ALLOC COMP-1 VALUE 10. 
20 CREATE-GROWTH-SIZE COMP-1 VALUE 0. 
20 CREATE-MAXIMUM-SIZE COMP-1 VALUE 0. 
20 CREATE-FREE-SPACE COMP-1 VALUE 0. 
20  CREATE-OVERFLOW COMP-1 VALUE 0. 
20 CREATE-RECORD-DESCRIPTORS COMP-1 VALUE 0. 
20 CREATE-RECORD-DESCP-PTRS COMP-2 VALUE 0. 
20  CREATE-RFU-1 COMP-2 VALUE 0. 
20 CREATE-RFU-2 COMP-2 VALUE 0. 

01 CREATE-TABLE-PTR COMP-2. 

01 TEMP-PATH PIC X(02) VALUE SPACE. 

01 TEMP-PATH-PTR COMP-2. 

01 MCL-CRFIL PIC X(02) VALUE 

“647 AQ, 


A A ACE PCD Sele AE SABA ALD 


PROCEDURE DIVISION. 


* 20 DAY DED DAN NATE APES ED CDSE 


* 


THE-BEGINNING. 
CALL “POINT” USING CREATE-FILE-TABLE CREATE-TABLE-PTR. 
CALL “POINT” USING TEMP-PATH TEMP-PATH-PTR. 
MOVE TEMP-PATH-PTR TO CREATE-PATH-PTR. 

THE-CREATE. 


MOVE CREATE-TABLE-PTR TO R-B4. 
CALL “CMCL’ USING MCL-REGS MCL-CRFIL. 


* eane 


Example Description 


1. Thetwocalls to POINT return the pointers of the Create File Structure and 
the temporary path name. 


2. The Create File Structure requires that the pointer to the pathname be 
provided, thus the MOVE will place the TEMP-PATH-PTR in the structure. 
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3. This Service Call requires the address of the Create File Structure to be in 
Base Register 4 (R-B4). | 


4. Thecall to CMCL will then execute the Service Request ‘“‘Create File”. The 
return status will be returned in Register R1 (R-R1). Notice that the 
temporary pathname (TEMP-PATH) is a space which is the requirement for a 
temporary file. This call will create a RELATIVE file with a logical record 
size of 58 characters, a block size of 1024, and an initial size of 10. Also, the 
file will have the GET performed for LFN 1. The user can then use standard 
COBOL I/O verbs to manipulate the file and when the close is issued, the file 
will be automatically REMOVEd and deleted. 


5. Note that the service call is defined as “ “17,49” ” which will generate the 

- hexadecimal value of x’1030’. COBOL uses the decimal value as an index to 
the HEX table where index 1 = 0, etc. See the GCOS 6 Advanced COBOL 
Compiler User’s Guide (Order No. CZ31) for further explanation. 


Resource Requirements 


MEMORY 
CMCL shared procedure 
24 words 


POINT shared procedure 
8 words 
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GETARG 


Function 


Passes positional arguments to executing COBOL programs so they can function 
as commands. Any number of arguments may be passed using a single call. (See 
ARGTAB for passing floating-option arguments.) 


Subroutine Syntax 


Add to the WORKING-STORAGE SECTION of your Program: 


01 ARGUMENT-1 PICTURE X(10). 
01 ARGUMENT-2 PICTURE X(30). 
01 ARGUMENT-3 PICTURE X(5). 


01 ARGUMENTR hea eseeee eee 


Add to the PROCEDURE DIVISION of your Program: 


CALL “GETARG” USING ARGUMENT-1 ARGUMENF2 ... ARGUMENT-n. 


Note that GETARG may be called once only during the execution of a single 
COBOL program. Also, you can name the fields as you like, as long as you use the 
same names in the CALL statement. 


Example 


When GETARG is used, each argument must be an 01 level description. GETARG 
places each argument (taken as a whole entity) in each successive field men- 
tioned in the CALL statement. This is repeated for each argument in the com- 
mand line. 


For an entry of: 


CBLPRG PRINT>USER>COBOL>CBLPRG.L 123 
(Assume that CBLPRG calls the GETARG subroutine.) 


GETARG, using the WORKING-STORAGE SECTION description shown above 
(in “Subroutine Syntax’’), will pass the arguments into their fields as follows: 


ARGUMENT 1 will contain ‘PRINT’ 
ARGUMENT? will contain ‘> USER>COBOL>CBLPRG.L 
ARGUMENTS will contain ‘123’ 
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Notes 


GETARG will return only the actual number of arguments passed; you should 
initialize the arguments before calling GETARG to determine the actual number 
of arguments passed. Also, GETARG will truncate the actual argument if the 
receiving field is too small. 


GETARG will also function properly if the program is a lead task. 
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POINT: 


Function 


Identifies the physical address of a field in memory, as required by certain MOD 
400 System Services. POINT is used in conjunction with the CMCL subroutine 
(see CMCL in this section) and the COBOL copy files included in the appendixes 
in the back of this manual. 


Subroutine Description 


See CMCL (in this section) for a description of how POINT, CMCL, and the 
COBOL copy files work together. 


Subroutine Syntax 


CALL “POINT” USING structure structure-ptr. 
(Where “structure” is a group-item and “‘structure-ptr’” is a COMP-2 field.) 


Resource Requirements 


MEMORY _ Shared procedure 8 words 
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Appendix A 


DPS 6 “‘R”’ AND “‘B’’ Register 
Description COBOL Copy File 


REGS.IN.C 


(COBOL COPY FILE) 


All service calls require register descriptions, so include the statement: 


COPY REGS. 


in the WORKING-STORAGE SECTION of your program. During program compi- 


lation, the following register description will be copied into your program: 


01 
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MCL-REGS. 
02 RB7 
02 R-B6 
02 R-BS 
02 R-B4 
02 R-B3 
02 R-B2 
02 RBI 
02 R-R7 
02 R-R6 
02 R-R5 
02 R-R4 
02 R-R3 
02 R-R2 
02 R-Rl 


USAGE COMP-2 VALUE 0. 
USAGE COMP.2 VALUE 0. 
USAGE COMP.2 VALUE 0. 
USAGE COMP-2 VALUE 0. 
USAGE COMP-2 VALUE 0. 
USAGE COMP-2 VALUE 0. 
USAGE COMP-2 VALUE 0. 


USAGE COMP-1 VALUE 0. 
USAGE COMP-1 VALUE 0. 
USAGE COMP.-1 VALUE 0. 
USAGE COMP-1 VALUE 0. 
USAGE COMP-1 VALUE 0. 
USAGE COMP-1 VALUE 0. 
USAGE COMP-1 VALUE 0. 
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COBOL Copy Files for Five 


Commonly-Used Data Descriptions 


SCREATE.IN.C 
(Create File Information) 


If a service call requires a data description for Create File Information, include 


the statement: 


COPY SCREATE. 


in the WORKING-STORAGE SECTION of your program. During program com- 
pilation, the following data description will be copied into your program: 


01 CREATE-FILE-TABLE. 


20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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CREATE-LFN COMP-1. 
CREATE-PATH-PTR COMP-2. 
CREATE-ORGANIZATION PIC X(02) 
CREATE-RECORD-SIZE COMP-1 
CREATE-CI-SIZE COMP-1 VALUE 1024. 
CREATE-INITIAL-ALLOC COMP-1 
CREATE-GROWTH-SIZE COMP-1 
CREATE-MAXIMUM-SIZE COMP-1 
CREATE-FREE-SPACE COMP-1 
CREATE-OVERFLOW COMP-1 
CREATE-RECORD-DESCRIPTORS COMP-1 
CREATE-RECORD-DESCP-PTRS COMP-2 
CREATE-RFU-1 COMP-2 VALUEO. 
CREATE-RFU-2 COMP-2 VALUE 0. 


B-1 


VALUE ‘R” “‘1”. 
VALUE 58. 


VALUE 10. 
VALUE 0. 
VALUE 0. 
VALUE 0. 
VALUE 0. 
VALUE 0. 
VALUE 0. 
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SFIB.IN.C 


(File Information Block) 


If a service call requires a data description for File Information Block, include the 


statement: 


COPY SFIB. 


in the WORKING-STORAGE SECTION of your program. During program com- 
pilation, the following data description will be copied into your program: 


01 FIB-TABLE. 


05 
05 
05 
05 
05 
05 


F-LFN 
F-PROV 
F-URP 
F-IRL 
F-ORL 
F-RFU1 
F-IRT 
F-ORT 
F-IKP 
F-IKF 
F-ORA 
F-RFU2 


01 F-PROV-READ 

01 F-PROV-REWRITE 

01 F-PROV-READKEY 

01 F-PROV-READKEY-RELATIVE 

01 F-PROV-REWRITEKEY 

01 F-PROV-REWRITEKEY-RELATIVE 
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B-2 


COMP-1 
PIC X(02) 
COMP-2 
COMP-1 
COMP-1 
COMP-1 
COMP-1 
COMP-1 
COMP-2 
COMP-1 
COMP-2 
COMP-2 


PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 


VALUE -1. 

VALUE “ “65,1”. 
VALUE 0. 

VALUE +256. 
VALUE +256. 
VALUE 0. 

VALUE 0. 

VALUE 0. 

VALUE 0. 

VALUE +0. 
VALUE 0. 

VALUE 0. 

VALUE “ “65,1” ”. 
VALUE “ “121,1"”. 
VALUE “ “69,1”. 
VALUE “ “65,129” ”’. 
VALUE “ *125,1” ”. 


VALUE “ “121,129” ”’. 
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SINFO.IN.C 
(File Information) 


Appendix B 


If a service call requires a data description for File Information, include the 
statement: 


COPY SINFO. 


in the WORKING-STORAGE SECTION of your program. During program com- 
pilation, the following data description will be copied into your program: 


01 


01 


01 


INFO-TABLE. 
20 ~=INFO-LFN-X. 
30 INFO-LFN 


20 INFO-PATH-PTR 

20 INFO-DEVICE-TYPE 

20 = INFO-LRN 

20 ~=INFO-FILE-TYPE 

20 INFO-FILE-TYPE-2 

20 INFO-ATTRIBUTE-PTR 

20 INFO-DISK-OPTIONS 

20 ~=INFO-DISK-ATTRIBUTES 
20 = INFO-KEY-PTR 

20 INFO-RECORD-DESC-SIZE 
20 INFO-NO-RELATED-FILES 


INFO-FILE-ATTR. 

20 INFO-LRSZ 

20 INFO-CISZ 

20 ~=INFO-USED 

20 INFO-GROWTH 

20 INFO-MAX 

20 ~=INFO-FREE-SPACE 
20 ~=INFO-FILLER 


INFO-REC-KEY. 

20 ' FILLER 

20 INFO-SECTORS-PER-LOG 
20 ~=s- FILLER 


COMP-1 
COMP-2 
COMP-1 
COMP-1 


PIC X(01) 
PIC X(01) 


COMP-2 
COMP-1 
COMP-1 
COMP-2 
COMP-1 
COMP-1 


COMP-1. 
COMP-1. 
COMP-1. 
COMP-1. 
COMP-1. 
COMP-1. 
PIC X(20). 


PIC X(10). 
COMP-1. 
PIC X(06). 


VALUE 
VALUE 
VALUE 
VALUE 


2090 


VALUE SPACE. 
VALUE SPACE. 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


Soo92°9 


HH06-00 


SGET.IN.C 
(Get File Information) 


If a service call requires a data description for Get File Information, include the 
statement: 
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COPY SGET. 


in the WORKING-STORAGE SECTION of your program. During program com- 
pilation, the following data description will be copied into your program: 


01 


01 
01 
01 
01 
01 


GET-FILE-TABLE. 


10 THE-LFN 


10 THE-PATH 


10 THE-ACCESS-SHARE 
10 TAPE-PARAMETERS. 


20 
20 
20 
20 
20 
20 
20 


ACCESS-RR 
ACCESS-RW 
ACCESS-EX 
ACCESS-WR 
ACCESS-WW 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


COMP-1. 
COMP-2. 
PIC X(02). 
COMP-1 
COMP-1 
COMP-1 
COMP-1 
COMP-1 
COMP-1 
COMP-1 
PIC X(02) VALUE “ “2,1”. 
PIC X(02) + VALUE “ “3,1”. 
PIC X(02) VALUE “ “4,1”. 
PIC X(02) ~—- VALUE “ “5,1”. 
PIC X(02) VALUE ““6,1””. 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


o9999990 
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SPATH.IN.C 
Expand Path Table 


If a service call requires a data description for Expand Path Information, include 
the statement: 


COPY SPATH. 


in the WORKING-STORAGE SECTION of your program. During program com- 
pilation, the following data description will be copied into your program: 


01 EXPAND-PATH-PARAMETERS. 


20 INPUT-PATH-PTR COMP-2. 
20 OUTPUT-PATH-PTR COMP-2. 
20 EXPAND-TYPE COMP-1 VALUE 0. 
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Appendix C 


Data Descriptions for System 
Services 


SMCLS.IN.C 


(Data Descriptions for System Services) 


All MOD 400 System Service Calls require an MCL description in the program’s 
WORKING-STORAGE SECTION to identify the service call name and describe 
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its data field. 


MCL descriptions for all MOD 400 System Service Calls are given below. Refer to 
the MOD 400 System Programmer’s Guide- Volume II (Order No. CZ06) for com- 


plete information on System Service Calls. 


01 
01 
01 
01 
01 
01 
01 


O01 


01 


MCL-ABGRP 
MCL-ABGRQ 
MCL-ACTID 
MCL-ACTVG 
MCL-ASFIL 
MCL-BUAT 
MCL-BUID 
MCL-BULD 
MCL-BUXFR 
MCL-CANRQ 
MCL-CIN 
MCL-CKPFL 
MCL-CKPT 
MCL-CLFIL 
MCL-CLFIL2 
MCL-CLFIL3 
MCL-CLPNT 
MCL-CLRSW 
MCL-CMDLN 
MCL-CMSUP 


MCL-CMSUP2 


MCL-CNCRQ 
MCL-CNSRQ 
MCL-CRDIR 
MCL-CRFIL 
MCL-CRGRP 


PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


&6 44,11” and 
sé “14,08” ie 
sé 91 ,03” ae 
“ 14,10". 
&é sala WY ao WY a irs 
“13,107”. 
“ 21,07" ". 
66 “13,11” Pies 
“ “13,08” ". 
66 “13,02” ak 
sé “09,03” aan 
&é “14,18” a 
sé “14.16” , 
"17,86" ". 
sé 17,87” dca 
sé “17,88” as 
sé 43,20” tee 
66 12,03” sie 
66 “13,09” aoe 
ce “10,03” ‘im 
&6 “10,04” aa 
66 06,02” ae 
&6 “07,02” aie 
6é “17,161 ” a 
sé 17,49” oe 
6é “14,04” ase 


SMCLS.IN.C (continued) 


Appendix C 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


01 


MCL-CROAT 
MCL-CRSEG 
MCL-CRTSK 
MCL-CRTSK2 
MCL-CWDIR 
MCL-DFCKP 
MCL-DFRHD 
MCL-DFRTL 
MCL-DFSM 
MCL-DLDIR 
MCL-DLFIL 
MCL-DLGRP 
MCL-DLOAT 
MCL-DLREC 
MCL-DLREC2 
MCL-DLSEG 
MCL-DLSM 
MCL-DLTSK 
MCL-DQPST 
MCL-DSFIL 
MCL-DSTRP 
MCL-ELEND 
MCL-ELEX 
MCL-ELGT 
MCL-ELST 
MCL-ENTID 
MCL-ENTRP 
MCL-EROUT 
MCL-EXTDT 
MCL-EXTET 
MCL-EXTIM 
MCL-GAFIL 
MCL-GDTM 
MCL-GIDEV 
MCL-GIFIL 
MCL-GMEM 
MCL-GMEM2 
MCL-GNFIL 
MCL-GRFIL 
MCL-GTACT 
MCL-GTFIL 
MCL-GWDIR 
MCL-HDIR 
MCL-INDTM 
MCL-INSID 
MCL-KILLT 
MCL-LKNME 
MCL-MACPT 
MCL-MCME 
MCL-MCMG 
MCL-MDFIL 
MCL-MINIT 
MCL-MODID 
MCL-MRECV 
MCL-MSEND 


PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 


PIC X(02) 


PIC X(02) 
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VALUE 


VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


66 “08,1 | 9 yy 
rT “13.13” ay 
sé 13,03” ee 
sé “13.04” aa 
66 “17,197” se 
$6 “13 96” ae 
rT “02,14” ae 
rT “02,13” ae 
66 “07,05” v 
rT “17,86” tae 
66 “17,54” a 
is “14.05” a 
rT “08,14” am 
rT “18.49” ae 
66 “48.50” . 
rT “43.14” am 
66 “07,08” a 
rT “13.05” me, 
rT “02,12” ae 
66 “47.20” mn 
rT ‘4 1 03” “s 
66 “03,10” am: 
rT “03,08” ay: 
66 “03,09” 
rT “03,06” sy 
sé ‘54 ,08” ” 
rT ag { ,02” ie 
66 “09,04” i 
“06,05” ”. 
rT “06,14” is 
66 “06,06” 
66 “44425” a 
rT “06,07” ‘2 
66 “17,103” a 
66 “47.97” 2 
66 05,03” a 
&6 05,04” os 
66 “17 61 F) i 
‘6 “47,57” Ja 
66 47.67" . 
"17,33". 
sé “17,193” ” 
rT} 94.12" 
66 “06,08” sp 
$6 “91,06” ap 
“13,187”. 
66 “47.72” a 
$6 “22 02” ae 
rT “22 07” a 
rT “92.08” m8 
“ "17,66" ”. 
66 “92 03” a 
66 “O4 04” + 
66 92.04” 9 
sé "22 06” a 
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01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


MCL-MTMG 
MCL-NCIN 
MCL-NMLF 
MCL-NPROC 
MCL-NUIN 
MCL-NUOUT 
MCL-OPFIL 
MCL-OPFIL2 
MCL-OPMSG 
MCL-OPRSP 
MCL-OVEXC 
MCL-OVLD 
MCL-OVRCL 
MCL-OVRLD 
MCL-OVRLS 
MCL-OVRSV 
MCL-OVST 
MCL-OVUN 
MCL-PERID 
MCL-PPNTL 
MCL-PRFAU 
MCL-PRFCR 
MCL-PRFDL 
MCL-PRFGT 
MCL-PRFIF 
MCL-PRFUP 
MCL-RBADD 
MCL-RBOOT 
MCL-RBPRM 
MCL-RCLHD 
MCL-RDBLK 
MCL-RDBLK2 
MCL-RDBLK3 
MCL-RDBLK4 
MCL-RDBLKS5 
MCL-RDREC 
MCL-RDREC2 
MCL-RDREC3 
MCL-RDREC4 
MCL-RDREC5 
MCL-RDREC6 
MCL-RDREC7 
MCL-RDREC8 
MCL-RDSW 
MCL-RLDMP 
MCL-RLSM 
MCL-RLTML 
MCL-RMEM 
MCL-RMEM2 
MCL-RMFIL 
MCL-RNFIL 
MCL-ROLBK 
MCL-RPDFC 
MCL-RPMSG 
MCL-RQBAT 


PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
PIC X(02) 
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VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
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